home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / RKMLibsPrgs / samplelibrary / lib / sample_stubs.asm < prev    next >
Encoding:
Assembly Source File  |  1992-09-03  |  4.2 KB  |  118 lines
  1. *******************************************************************************************
  2. * sample_stubs.asm
  3. *
  4. * Stubs match this .fd file:
  5. *
  6. *       ##base _SampleBase
  7. *       ##bias 30
  8. *       ##public
  9. *       Double(n1)(D0)
  10. *       AddThese(n1,n2)(D0/D1)
  11. *       ##end
  12. *
  13. * After assembling,
  14. *   JOIN sample_stubs.o sample_lvos.o AS sample.lib
  15. *
  16. * Apps LINK with LIBRARY sample.lib when calling sample.library functions
  17. *
  18. * If you put all of your stubs in one file, as shown here, then ALL of the stubs will be
  19. * linked into an application that references one stub.  For larger libraries, you should
  20. * place each stub in a separate assembler file, assemble them each separately, then join
  21. * all of the .o's together. That will allow each stub to be independently pulled into the
  22. * application that links with the .lib.
  23. *
  24. *
  25. * Copyright (c) 1992 Commodore-Amiga, Inc.
  26. *
  27. * This example is provided in electronic form by Commodore-Amiga, Inc. for
  28. * use with the "Amiga ROM Kernel Reference Manual: Libraries", 3rd Edition,
  29. * published by Addison-Wesley (ISBN 0-201-56774-1).
  30. *
  31. * The "Amiga ROM Kernel Reference Manual: Libraries" contains additional
  32. * information on the correct usage of the techniques and operating system
  33. * functions presented in these examples.  The source and executable code
  34. * of these examples may only be distributed in free electronic form, via
  35. * bulletin board or as part of a fully non-commercial and freely
  36. * redistributable diskette.  Both the source and executable code (including
  37. * comments) must be included, without modification, in any copy.  This
  38. * example may not be published in printed form or distributed with any
  39. * commercial product.  However, the programming techniques and support
  40. * routines set forth in these examples may be used in the development
  41. * of original executable software products for Commodore Amiga computers.
  42. *
  43. * All other rights reserved.
  44. *
  45. * This example is provided "as-is" and is subject to change; no
  46. * warranties are made.  All use is at your own risk. No liability or
  47. * responsibility is assumed.
  48. ***************************************************************************
  49.  
  50.    INCLUDE  "exec/types.i"
  51.    INCLUDE  "exec/libraries.i"
  52.  
  53.           SECTION data
  54.  
  55. *----- LIBINIT initializes an LVO value to -30 to skip the first four
  56. *----- 6-byte required library vectors (Open, Expunge, etc)
  57.  
  58.              LIBINIT
  59.  
  60. *----- LIBDEF assigns the current LVO value to a label, and then
  61. *----- bumps the LVO value by -6 in preparation for next LVO label
  62.  
  63. *----- This assigns the value -30 to our first _LVO label
  64.  
  65.              LIBDEF      _LVODouble     ;-30
  66.              XDEF        _LVODouble
  67.  
  68. *----- The value -30-6 is asigned to our second _LVO label
  69.  
  70.              LIBDEF      _LVOAddThese   ;-36
  71.              XDEF        _LVOAddThese
  72.  
  73.              END
  74.  
  75. *******************************************************************************************
  76.    INCLUDE  "exec/types.i"
  77.    INCLUDE  "exec/libraries.i"
  78.  
  79.           section code
  80.  
  81. *------ Caller declares and initializes SampleBase in their C code
  82.  
  83.             XREF        _SampleBase
  84.  
  85. *------ Must externally reference the _LVO labels defined in samplelib_lvos
  86.  
  87.             XREF        _LVODouble
  88.             XREF        _LVOAddThese
  89.  
  90. *------ Make C function stubs available to caller
  91.  
  92.             XDEF        _Double
  93.             XDEF        _AddThese
  94.  
  95. *------- These stubs move C args from stack to appropriate registers,
  96. *------- call the library function, and return result in d0
  97.  
  98. _Double:
  99.             MOVE.L      A6,-(SP)           ;Save register(s)
  100.             MOVE.L      8(SP),D0           ;Copy param to register
  101.             MOVE.L      _SampleBase,A6     ;Library base to A6
  102.             JSR         _LVODouble(A6)     ;Go to real routine
  103.             MOVE.L      (SP)+,A6           ;Restore register(s)
  104.             RTS
  105.  
  106. _AddThese:
  107.             MOVE.L      A6,-(SP)           ;Save register(s)
  108.             MOVEM.L     8(SP),D0/D1        ;Copy params to registers
  109.                                            ;8(SP)  goes into D0
  110.                                            ;12(SP) goes into D1
  111.             MOVE.L      _SampleBase,A6     ;Library base to A6
  112.             JSR         _LVOAddThese(A6)   ;Go to real routine
  113.             MOVE.L      (SP)+,A6           ;Restore register(s)
  114.             RTS
  115.  
  116.           END
  117.  
  118.